home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / BORL_TIP / TI2000 / TI2644.ASC < prev    next >
Text File  |  1994-09-19  |  1KB  |  46 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.   PRODUCT  :  Pascal                                 NUMBER  :  2644
  8.   VERSION  :  All
  9.        OS  :  DOS
  10.      DATE  :  August 18, 1994                          PAGE  :  1/1
  11.  
  12.     TITLE  :  Changing the border color in DOS text mode.
  13.  
  14.  
  15.  
  16.  
  17. Ever wonder how to change the color of the border
  18. around your screen in DOS text mode?  It's actually
  19. very simple - just call DOS interrupt $10, function
  20. $0B.  This sample code illustrates how.  You just drop
  21. the BorderColor procedure into any of your DOS text
  22. mode programs.
  23.  
  24. Program ChBorder;
  25.  
  26. procedure BorderColor(NewColor: byte); assembler;
  27. { simply call this procedure and pass it the number  }
  28. { of the color to which you would like the text-mode }
  29. { border to change. }
  30.   asm
  31.     mov ah, 0Bh
  32.     mov bh, 00h
  33.     mov bl, NewColor
  34.     int 10h
  35.   end;
  36.  
  37. begin
  38.   BorderColor(2);
  39. end.
  40.  
  41.  
  42. DISCLAIMER: You have the right to use this technical information
  43. subject to the terms of the No-Nonsense License Statement that
  44. you received with the Borland product to which this information
  45. pertains.
  46.